subroutine print_head(c_str,t_str,n_proc)
  implicit none
  integer,intent(in) :: n_proc
  character :: c_str*(*),t_str*(*)

900 format("PAVIO-Ver",a)
901 format("Start at ",a)
902 format("Number of processors=",i0)

  print 900,c_str
  print 901,t_str
  print 902,n_proc

  return

end subroutine print_head
